home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Maclife 42
/
MACLIFE42.ISO.7z
/
MACLIFE42.ISO
/
FreeWare200
/
通信関連
/
NIFTY APS f1.sit
/
NIFTY APS f1
/
Login Script
< prev
next >
Wrap
Text File
|
1998-04-13
|
32KB
|
1,775 lines
************************************
* NIFTY APS final by Ko Tsuneta *
************************************
********************
* Main Routine *
********************
***** Get Date *****
date:$date$:
set:$predate$:20$date$
set:#predate#:$predate$
strext:$string$:7:8:$predate$
if:05:$string$<>01
sub:#predate#:100
strext:$string$:5:6:#predate#
if:04:$string$==00
set:$predate$:#predate#
if:03:$string$==04
if:03:$string$==06
if:03:$string$==09
if:03:$string$==11
if:02:$string$<>02
strext:$string$:1:4:$predate$
set:#num#:$string$
mod:#num#:4
if:01:#num#<>0
set:#num#:$string$
mod:#num#:100
if:00:#num#<>0
set:#num#:$string$
mod:#num#:400
if:01:#num#<>0
00:
strext:$predate$:1:6:$predate$
set:$predate$:$predate$29
j:06
01:
strext:$predate$:1:6:$predate$
set:$predate$:$predate$28
j:06
02:
strext:$predate$:1:6:$predate$
set:$predate$:$predate$31
j:06
03:
strext:$predate$:1:6:$predate$
set:$predate$:$predate$30
j:06
04:
sub:#predate#:10000
set:$predate$:#predate#
strext:$predate$:1:4:$predate$
set:$predate$:$predate$1231
j:06
05:
sub:#predate#:1
set:$predate$:#predate#
06:
strext:$predate$:3:8:$predate$
set:$set$:------------1
***** Maintenance? *****
set:#start#:0
week:#week#
if:10:#week#<>4
strext:$string$:5:6:$date$
set:#num#:$string$
if:10:#num#<<22
if:10:#num#>>28
time:$time$
strext:$string$:1:2:$time$
set:#num#:$string$
if:10:#num#<<01
if:10:#num#>>07
m:メンテナンス中です。^m
j:992
***** Where will I go? *****
10:
set:#go#:0
exist:11:SCRIPT:BBS.aps
j:12
11:
add:#go#:1
12:
firstfile:$filename$:POST:¥^BBS
if:13:$filename$==
add:#go#:2
13:
exist:14:SCRIPT:MES.aps
j:15
14:
add:#go#:4
15:
exist:16:SCRIPT:SEArch.aps
j:17
16:
add:#go#:8
17:
exist:18:SCRIPT:DownList.lib
j:19
18:
add:#go#:16
19:
firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
if:20:$filename$==
add:#go#:32
20:
exist:21:SCRIPT:PATIO.aps
j:70
21:
add:#go#:64
***** Setting *****
70:
exist:71:SCRIPT:SETTING.aps
m:SETTING.apsが見つかりません。^m
j:992
71:
fopen:#setref#:SCRIPT:SETTING.aps
fread:#setref#:$line$
strwhere:#num#:/:$line$
if:73:#num#<>1
strext:$id$:2:9:$line$
strwhere:#num#:$id$:$i$
if:74:#num#==0
add:#num#:8
div:#num#:9
nthstr2: :$pw$:#num#:$p$
gosub:1002
if:73:$temset$<>DIAL
nthstr:$temset$:2:$line$
nthstr2:¥r:$temset$:1:$temset$
set:$set$:$temset$
fread:#setref#:$line$
nthstr:$temset$:1:$line$
if:73:$temset$<>TERMINAL
gosub:1000
if:73:$temset$<>TEXTMAIL
gosub:1000
if:73:$temset$<>BINARYMAIL
gosub:1000
if:73:$temset$<>DELETEMAIL
gosub:1000
if:73:$temset$<>SENDMAIL
gosub:1000
if:73:$temset$<>NEWMAIL
gosub:1000
if:73:$temset$<>FORUMOPT
gosub:1000
if:73:$temset$<>MES
gosub:1000
if:73:$temset$<>LIB
gosub:1000
if:73:$temset$<>COMMENT
gosub:1000
if:73:$temset$<>BILL
nthstr:$temset$:2:$line$
nthstr2:¥r:$temset$:1:$temset$
set:$set$:$set$-$temset$
gosub:1002
if:73:$temset$<>LOGCUT
gosub:1000
if:73:$temset$<>QUIT
nthstr:$temset$:2:$line$
if:72:$temset$==ON^m
set:$set$:$set$-0
j:80
72:
set:$set$:$set$-1
j:80
73:
m:SETTING.apsのフォーマットが正しくありません。^m
set:$set$:------------1
j:991
74:
m:SETTING.apsにあるIDが見つかりません。^m
set:$set$:------------1
j:991
***** Login *****
80:
set:$mainset$:$set$
set:#times#:0
nthstr:$temset$:1:$set$
if:81:$temset$==9
dial:81:$temset$
m:回線が混雑しているようです。^m
offline:
j:991
81:
if:94:#times#>>2
silence:75
s2:
silence:30
line:#num#
getline:$line$:#num#
strwhere:#num#:Connection-ID:$line$
if:91:#num#<>0
strwhere:#num#:¥¥*:$line$
if:82:#num#==1
strwhere:#num#:Login:$line$
if:84:#num#==1
s:@P^m
t:83:3:*
82:
s:C NIF^m
j:90
83:
s:^m
add:#times#:1
j:81
84:
s:NIFTY^m
r:Password
s:^m
90:
r:Connection-ID|92:User-ID|95:Password|94:Clear
91:
s:SVC^m
t:93:5:-ID
line:#num#
getline:$line$:#num#
strwhere:#num#:Connection-ID:$line$
if:91:#num#<>0
92:
s:$id$^m
j:90
93:
closeport:
openport:
j:90
94:
m:何らかの理由で接続できなかったようです。^m
offline:
j:991
95:
if:96:#start#<>0
line:#start#
add:#start#:2
clock:reset
clock:on
96:
s:$pw$^m
set:$gone$:-
set:#mailon#:0
***** Recive Mail *****
r:す(未読分|120:(改行でトップメニュー)|130:^j>|991:定期保守をしております
silence:9
nthstr:$temset$:2:$set$
if:100:$temset$==0
gosub:1010
100:
nthstr:$temset$:3:$set$
if:101:$temset$==1
nthstr:$temset$:4:$set$
if:131:$temset$==0
101:
s:MAIL^m
nthstr:$temset$:7:$set$
if:102:$temset$==1
set:#mailon#:1
102:
r:^jMAIL>
nthstr:$temset$:3:$set$
if:110:$temset$==0
s:REAd NEW^m
nthstr:$temset$:5:$set$
103:
r:^jaction:|105:^jMAIL>
if:104:$temset$==1
s:SAVe^m
j:103
104:
s:DELete^m
j:103
105:
nthstr:$temset$:4:$set$
if:131:$temset$==0
110:
line:#bstart#
s:DOWn PROT:BPL^m
add:#bstart#:3
r:^j>|131:^jMAIL>
set:#mailon#:0
line:#bend#
111:
if:131:#bstart#>=#bend#
getline:$line$:#bstart#
add:#bstart#:1
strmatch:$bmailnum$:¥^ +[0-9]+:$line$
if:111:$bmailnum$==
strwhere:#num#:[ ]+[01][0-9]/[0-3][0-9] B :$line$
if:111:#num#==0
strmatch:$bmailnum$:[0-9]+:$bmailnum$
s:$bmailnum$^m
r:^j:
s:BINARYMAIL$bmailnum$^m
r:開始−
d:1
dlBplus:
r:^j:
nthstr:$temset$:5:$set$
if:112:$temset$==1
s:2^m
j:113
112:
s:1^m
113:
r:^jMAIL>
nthstr:$temset$:7:$set$
if:114:$temset$==1
set:#mailon#:1
114:
if:131:#bstart#>=#bend#
j:110
***** Read This Week's Announce *****
120:
silence:9
firstfile:$filename$:POST:¥^NEW[0-9A]
if:130:$filename$==
strext:$line$:4:31:$filename$
gosub:2320
nthstr:$temset$:2:$set$
if:121:$temset$==0
gosub:1010
121:
s:$line$
122:
s:^m
r:表示終了|122:(改行で次文書 E:終了)|130:入力して下さい◆
***** Send Mail *****
130:
silence:9
nthstr:$temset$:2:$set$
if:131:$temset$==0
gosub:1010
131:
nthstr:$temset$:6:$set$
if:150:$temset$==0
132:
firstfile:$filename$:POST:¥^MAIL[0-9]
if:150:$filename$==
fopen:#mesref#:POST:$filename$
fread:#mesref#:$mesline$
strwhere:#num#:#!FN:$mesline$
if:140:#num#==1
strwhere:#num#:TO:$mesline$
if:133:#num#==1
fclose:#mesref#
set:$us$:_?
gosub:2300
j:132
133:
gosub:1200
j:132
140:
strlen:#length#:$mesline$
sub:#length#:1
strext:$binary$:5:#length#:$mesline$
exist:141:$binary$
fclose:#mesref#
set:$us$:_?
gosub:2300
j:132
141:
set:$title$:無題 m(_ _)m^m
fread:#mesref#:$mesline$
strwhere:#num#:#!TT:$mesline$
if:143:#num#<>1
strlen:#length#:$mesline$
if:142:#length#<=5
strext:$title$:5:#length#:$mesline$
142:
fread:#mesref#:$mesline$
143:
strwhere:#num#:TO:$mesline$
if:144:#num#==1
fclose:#mesref#
set:$us$:_?
gosub:2300
j:132
144:
gosub:1200
if:132:$mailto$==$id$
s:UPLoad TYPE:BIN PROT:BPL^m
r:^j:
s:$binary$^m
r:開始−
d:1
ulBplus:$binary$
r:^j:
s:$title$
r:^j:
s:1^m
r:^j:
set:#times#:1
145:
nthstr2:,:$sendid$:#times#:$mailto$
add:#times#:1
strwhere:#num#:¥¥r:$sendid$
nthstr2:¥r:$sendid$:1:$sendid$
s:$sendid$^m
r:◆|147:^j:
146:
if:145:#num#==0
s:^m
r:^j:
147:
s:1^m
r:^j送信(1:送信する|146:^j:|132:^jMAIL>
j:147
***** Read This Week's Announce *****
150:
firstfile:$filename$:POST:¥^NEW[0-9A]
if:160:$filename$==
s:GO NEW^m
strext:$line$:4:31:$filename$
gosub:2320
r:^j>
s:$line$
151:
s:^m
r:表示終了|151:(改行で次文書 E:終了)|160:入力して下さい◆
***** Mail to Center *****
160:
firstfile:$filename$:POST:¥^CENTER-1-0
if:170:$filename$==
s:GO SUPPORT^m
fopen:#mesref#:POST:$filename$
r:^j>
s:4^m
r:^j>
161:
s:1^m
r:^j>
s:1^m
r:行頭で/E)
gosub:1800
r:^j題名 (漢字で20文字まで)|162:^j>
s:無題 m(_ _)m^m
r:^j:
s:1^m
r:^j>
162:
firstfile:$filename$:POST:¥^CENTER-1-0
if:161:$filename$<>
***** External Script *****
170:
exist:171:SCRIPT:EXTERNAL.aps
j:200
171:
external:EXTERNAL.aps
***** BBS *****
200:
if:900:#go#<<1
set:#num#:#go#
mod:#num#:2
if:220:#num#<<1
fopen:#refnum#:SCRIPT:BBS.aps
201:
fread:#refnum#:$line$
if:213:#err#<>0
if:213:$line$==/END^m
s:BBS^m
set:$bbs$:$line$
strext:$string$:1:1:$bbs$
r:^j>
s:$string$^m
202:
r:下さい◆|203:^j>|204:^jBBS>
j:201
203:
strext:$bbs$:2:2:$bbs$
s:$bbs$^m
j:202
204:
nthstr:$bbs$:2:$line$
if:205:$bbs$<>Y
s:SCAn DATE:$predate$^m
j:206
205:
s:SCAn DATE:$date$^m
206:
nthstr:$bbs$:3:$line$
207:
r:^j:|201:^jBBS>|210:^j>
s:^m
j:207
210:
if:201:$bbs$<>R
s:ALL
211:
s:^m
t:212:1:next>
j:211
212:
silence:30
s2:
silence:9
line:#num#
getline:$line$:#num#
strwhere:#num#:>:$line$
if:211:#num#==0
j:201
213:
fclose:#refnum#
220:
if:900:#go#<<2
221:
firstfile:$filename$:POST:¥^BBS[0-9]
if:300:$filename$==
s:BBS^m
fopen:#refnum#:POST:$filename$
fread:#refnum#:$line$
set:$bbs$:$line$
fread:#refnum#:$line$
fclose:#refnum#
set:$us$:_
gosub:2300
strext:$string$:1:1:$bbs$
r:^j>
s:$string$^m
222:
r:下さい◆|223:^j>|224:^jBBS>
j:221
223:
strext:$bbs$:2:2:$bbs$
s:$bbs$^m
j:222
224:
strmatch:$bbsid$:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
strext:$year$:1:2:$date$
strmatch:$day$:[ 01][0-9]/[0-3][0-9]:$line$
strmatch:$month$:[0-9]+:$day$
strext:$day$:4:5:$day$
s:SCAn DATE:$year$$month$$day$^m
r:^j:|221:^jBBS>
s:$bbsid$^m
r:^j:|221:^jBBS>
s:^m
r:^j>|221:^jBBS>
s:ALL
225:
s:^m
t:226:1:next>
j:225
226:
silence:30
s2:
silence:9
line:#num#
getline:$line$:#num#
strwhere:#num#:>:$line$
if:225:#num#==0
j:221
***** Forum *****
300:
if:900:#go#<<4
set:#num#:#go#
mod:#num#:8
if:400:#num#<<4
fopen:#refnum#:SCRIPT:MES.aps
301:
fread:#refnum#:$line$
if:399:#err#<>0
if:399:$line$==/END^m
nthstr2:¥r:$forum$:1:$line$
gosub:1020
gosub:1100
fread:#refnum#:$line$
nthstr2:¥r:$line$:1:$line$
r:下さい◆|304:^jFORUM>|302:^jmore>|302:^j>
j:301
302:
nthstr:$temset$:8:$set$
if:301:$temset$==0
s:SET MENu OFF^m
r:^jmore>|303:^jFORUM>|303:^j>FORUM>|301:^j>
303:
gosub:1030
304:
s:SEND OFF^m
r:^jFORUM>
305:
if:306:$filename$==
gosub:1300
gosub:1100
j:305
306:
nthstr2:/:$room$:1:$line$
if:312:#roomon#==1
if:313:$room$==
strext:$room$:1:2:$room$
strwhere:#num#:[,-]:$room$
if:310:#num#==0
strext:$room$:1:1:$room$
310:
nthstr:$temset$:9:$set$
if:311:$temset$==0
s:MES^m
r:^j>|320:^jFORUM>
311:
s:MES $room$^m
r:^j>|320:^jFORUM>|312:^jCCS(
silence:200
nthstr2:/:$room$:1:$line$
s:MREad ROOM:$room$^m
r:^j>
silence:9
j:313
312:
nthstr2:/:$room$:1:$line$
s:MREad ROOM:$room$^m
set:#roomon#:1
r:^jCCS(N)>|313:^jCCS(P)>
313:
gosub:1110
if:314:$readfile$==
gosub:2100
j:313
314:
set:#readnum#:2
gosub:2200
set:#readnum#:3
gosub:2200
exist:320:SCRIPT:SEArch.aps
j:330
320:
fopen:#searef#:SCRIPT:SEArch.aps
321:
fread:#searef#:$sealine$
if:322:#err#<>0
if:322:$sealine$==/END^m
if:321:$sealine$<>$forum$^m
fread:#searef#:$sealine$
if:322:#err#<>0
if:322:$sealine$==/END^m
gosub:1900
322:
fclose:#searef#
330:
exist:331:SCRIPT:DownList.lib
j:340
331:
fopen:#downref#:SCRIPT:DownList.lib
332:
fread:#downref#:$downline$
if:333:#err#<>0
if:332:$downline$<>¥¥m$forum$^m
gosub:2000
333:
fclose:#downref#:
340:
gosub:1600
j:301
399:
fclose:#refnum#
***** Search *****
400:
if:900:#go#<<8
set:#num#:#go#
mod:#num#:16
if:500:#num#<<8
fopen:#searef#:SCRIPT:SEArch.aps
401:
fread:#searef#:$sealine$
if:499:#err#<>0
if:499:$sealine$==/END^m
nthstr2:¥r:$forum$:1:$sealine$
fread:#searef#:$sealine$
if:499:#err#<>0
if:499:$sealine$==/END^m
strwhere:#num#:-$forum$-:$gone$
if:401:#num#<>0
gosub:1020
r:下さい◆|404:^jFORUM>|402:^jmore>|402:^j>
j:401
402:
nthstr:$temset$:8:$set$
if:401:$temset$==0
s:SET MENu OFF^m
r:^jmore>|403:^jFORUM>|403:^j>FORUM>|401:^j>
403:
gosub:1030
404:
s:SEND OFF^m
r:^jFORUM>
gosub:1900
exist:410:SCRIPT:DownList.lib
j:420
410:
fopen:#downref#:SCRIPT:DownList.lib
411:
fread:#downref#:$downline$
if:412:#err#<>0
if:411:$downline$<>¥¥m$forum$^m
gosub:2000
412:
fclose:#downref#:
420:
gosub:1600
430:
gosub:1100
if:431:$filename$==
gosub:1300
j:430
431:
gosub:1110
if:401:$readfile$==
gosub:2100
j:431
499:
fclose:#searef#
set:$filename$:SEArch.aps
gosub:2310
***** Down *****
500:
if:900:#go#<<16
set:#num#:#go#
mod:#num#:32
if:600:#num#<<16
fopen:#downref#:SCRIPT:DownList.lib
501:
fread:#downref#:$downline$
if:599:#err#<>0
502:
strwhere:#num#:m:$downline$
if:501:#num#<>2
strext:$forum$:3:99:$downline$
nthstr2:¥r:$forum$:1:$forum$
strwhere:#num#:-$forum$-:$gone$
if:501:#num#<>0
gosub:1020
r:下さい◆|505:^jFORUM>|503:^jmore>|503:^j>
j:501
503:
nthstr:$temset$:8:$set$
if:501:$temset$==0
s:SET MENu OFF^m
r:^jmore>|504:^jFORUM>|504:^j>FORUM>|501:^j>
504:
gosub:1030
505:
s:SEND OFF^m
r:^jFORUM>
gosub:2000
firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
510:
gosub:1600
520:
gosub:1100
if:521:$filename$==
gosub:1300
j:520
521:
gosub:1110
if:502:$readfile$==
gosub:2100
j:521
599:
fclose:#downref#
set:$filename$:DownList.lib
gosub:2310
***** Send Massage & Read Message & Upload *****
600:
if:900:#go#<<32
601:
firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
if:700:$filename$==
nthstr:$temforum$:1:$filename$
nthstr:$room$:2:$filename$
if:605:$temforum$==$forum$
set:$forum$:$temforum$
gosub:1020
r:下さい◆|604:^jFORUM>|602:^jmore>|602:^j>
j:606
602:
nthstr:$temset$:8:$set$
if:606:$temset$==0
s:SET MENu OFF^m
r:^jmore>|603:^j>FORUM>|606:^j>
603:
gosub:1030
604:
s:SEND OFF^m
r:^jFORUM>
605:
strwhere:#num#:LIB:$room$
if:620:#num#==1
strwhere:#num#:[¥^0-9]:$room$
if:608:#num#<>0
set:#num#:$room$
if:610:#num#>>20
gosub:1300
j:601
606:
set:$us$:_?
gosub:2300
firstfile:$filename$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
607:
if:601:$filename$==
nthstr:$temforum$:1:$filename$
if:606:$temforum$==$forum$
nextfile:$filename$
j:607
608:
set:$us$:_?
gosub:2300
j:601
610:
set:$readfile$:$filename$
strext:$string$:1:1:$room$
strext:$room$:2:2:$room$
if:611:$string$==4
set:$room$:1$room$
if:611:$string$==5
set:$room$:20
611:
gosub:2100
j:601
620:
strext:$uplib$:4:5:$room$
gosub:1610
j:601
***** Patio *****
700:
if:900:#go#<<64
fopen:#patioref#:SCRIPT:PATIO.aps
701:
fread:#patioref#:$line$
if:799:#err#<>0
if:799:$line$==/END^m
if:701:$line$<>/$id$^m
710:
gosub:1040
if:799:$line$==/END^m
if:730:$line$==/RMN^m
if:730:$line$==/RTN^m
gosub:1050
gosub:1140
if:711:$patioi$==$id$
r:^j:|712:^j>
s:$patiop$^m
711:
r:^j:|713:^j>
712:
s:2^m
r:^j:|710:^j>
s:^m
r:^j>
j:710
713:
line:#num#
sub:#num#:1
getline:$line$:#num#
strwhere:#num#: 1 +[0-9]+ ( 0) [01][0-9]/[0-3][0-9] :$line$
if:714:#num#==0
if:720:$filename$==
714:
gosub:1070
gosub:1400
s:MREad^m
r:^jPATIO(N)>|720:^jPATIO(P)>
720:
gosub:1040
if:799:$line$==/END^m
if:740:$line$==/RMN^m
if:740:$line$==/RTN^m
gosub:1060
gosub:1140
if:721:$patioi$==$id$
r:^j:|722:^j>
s:$patiop$^m
721:
r:^j:|713:^j>
722:
s:2^m
r:^j:|720:^j>
s:^m
r:^j>
j:720
730:
strext:$string$:2:4:$line$
731:
gosub:1040
if:799:$line$==/END^m
if:730:$line$==/RTN^m
gosub:1050
gosub:1140
gosub:1150
if:732:$patioi$==$id$
r:^j:|733:^j>
s:$patiop$^m
732:
r:^j:|734:^j>
733:
s:2^m
r:^j:|731:^j>
s:^m
r:^j>
j:731
734:
set:#roomon#:0
line:#num#
sub:#num#:1
getline:$line$:#num#
strwhere:#num#: 1 +[0-9]+ ( 0) [01][0-9]/[0-3][0-9] :$line$
if:737:$readfile$==
s:1^m
set:#roomon#:1
r:^jPATIO(
nthstr:$temset$:2:$set$
if:735:$temset$==0
s:SET PAUSE OFF^m
r:^jPATIO(
735:
nthstr:$mes$:3:$readfile$
s:#!$mes$^m
set:$us$:_
gosub:2330
gosub:1150
r:下さい◆|736:^jPATIO(N)>|736:^jPATIO(P)>
gosub:2340
736:
if:735:$readfile$<>
737:
if:738:#num#==0
if:741:$filename$==
738:
if:739:#roomon#==1
gosub:1070
739:
gosub:1400
s:$string$^m
r:^j>
s:RC ALL^m
r:^jPATIO(
j:741
740:
strext:$string$:2:4:$line$
741:
gosub:1040
if:799:$line$==/END^m
if:740:$line$==/RTN^m
gosub:1060
gosub:1140
gosub:1150
if:742:$patioi$==$id$
r:^j:|743:^j>
s:$patiop$^m
742:
r:^j:|734:^j>
743:
s:2^m
r:^j:|741:^j>
s:^m
r:^j>
j:741
799:
fclose:#patioref#
***** Logout *****
900:
date:$date$:/
strext:$string$:8:8:$date$
nthstr:$temset$:12:$set$
strwhere:#num#:$string$:$temset$
if:980:#num#==0
s:GO BILL^m
r:^j>
s:2^m
r:^j>
980:
fread:#setref#:$line$
if:989:#err#<>0
if:989:$line$==/END^m
strwhere:#num#:/:$line$
if:980:#num#<>1
strext:$id$:2:9:$line$
strwhere:#num#:$id$:$i$
if:980:#num#==0
add:#num#:8
div:#num#:9
nthstr2: :$pw$:#num#:$p$
set:$set$:
gosub:1002
if:980:$temset$<>TERMINAL
gosub:1000
if:980:$temset$<>TEXTMAIL
gosub:1000
if:980:$temset$<>BINARYMAIL
gosub:1000
if:980:$temset$<>DELETEMAIL
gosub:1000
if:980:$temset$<>SENDMAIL
gosub:1000
if:980:$temset$<>NEWMAIL
gosub:1000
set:$set$:$set$---
if:980:$temset$<>COMMENT
gosub:1000
if:980:$temset$<>BILL
s:LOG^m
nthstr:$temset$:2:$line$
nthstr2:¥r:$temset$:1:$temset$
set:$set$:$set$-$temset$
nthstr:$temset$:12:$mainset$
set:$set$:$set$-$temset$
nthstr:$temset$:13:$mainset$
set:$set$:$set$-$temset$
set:#go#:0
exist:981:SCRIPT:PATIO.aps
j:95
981:
add:#go#:64
j:95
989:
set:$set$:$mainset$
line:#end#
s:OFF^m
clock:off
add:#end#:6
t:990:5:*
s:OFF^m
990:
firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-
if:991:$filename$==
set:$us$:_?
gosub:2300
j:990
991:
fclose:#setref#
992:
d:5
append:
if:996:#start#==0
set:$filename$:NIFTY APS LOG
save:#start#:#end#:$filename$
nthstr:$temset$:13:$set$
if:994:$temset$==0
exec:Ccut:LOG:$filename$
set:$filename$:_$filename$
993:
d:20
exist:994:LOG:$filename$
j:993
994:
set:#usnum#:1
rename:LOG:$filename$:$filename$.$date$
if:996:#err#==0
995:
add:#usnum#:1
rename:LOG:$filename$:$filename$.$date$*#usnum#
if:995:#err#<>0
996:
nthstr:$temset$:14:$set$
if:999:$temset$==1
close:
999:
exit:
********************
* Sub Routine *
********************
***** Option *****
1000:
nthstr:$temset$:2:$line$
if:1001:$temset$==ON^m
set:$set$:$set$-0
j:1002
1001:
set:$set$:$set$-1
1002:
fread:#setref#:$line$
nthstr:$temset$:1:$line$
ret:
1010:
s:SET MENu OFF^m
r:^j>
s:SET PAGe OFF^m
r:^j>
ret:
1020:
s:GO $forum$^m
set:$gone$:$gone$$forum$-
set:#roomon#:0
set:#libon#:0
ret:
1030:
s:SET PAGe OFF^m
r:^jmore>|1031:^jFORUM>
1031:
s:SET PAUSE OFF^m
r:^jmore>|1039:^jFORUM>
1032:
s:^m
r:^jFORUM>|1032:^jmore>
1039:
ret:
1040:
fread:#patioref#:$line$
if:1041:#err#==0
set:$line$:/END^m
j:1049
1041:
strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9] :$line$
if:1049:#num#==1
strwhere:#num#:/:$line$
if:1040:#num#<>1
strwhere:#num#:/[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]¥¥r:$line$
if:1049:#num#<>1
set:$line$:/END^m
1049:
ret:
1050:
s:GO PATIO^m
nthstr2: :$patioi$:1:$line$
nthstr2: :$patiop$:2:$line$
r:^j>
s:2^m
r:^j:
s:$patioi$^m
ret:
1060:
s:MOVe^m
nthstr2: :$patioi$:1:$line$
nthstr2: :$patiop$:2:$line$
r:^j:
s:$patioi$^m
ret:
1070:
s:1^m
r:^jPATIO(
nthstr:$temset$:2:$set$
if:1079:$temset$==0
s:SET PAUSE OFF^m
r:^jPATIO(
1079:
ret:
***** Prepare to Send or Read Message *****
1100:
firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
1101:
if:1109:$filename$==
nthstr:$temforum$:1:$filename$
if:1102:$temforum$==$forum$
nextfile:$filename$
j:1101
1102:
nthstr:$room$:2:$filename$
strwhere:#num#:[¥^0-9]:$room$
if:1103:#num#<>0
set:#num#:$room$
if:1109:#num#<=20
nextfile:$filename$
j:1101
1103:
set:$us$:_?
gosub:2300
nextfile:$filename$
j:1101
1109:
ret:
1110:
firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
set:$temroom$:
gosub:1130
set:$room$:$temroom$
ret:
1120:
firstfile:$readfile$:POST:¥^[¥^_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
1121:
gosub:1130
if:1129:$readfile$==
if:1129:$room$==$temroom$
nextfile:$readfile$
j:1121
1129:
ret:
1130:
if:1139:$readfile$==
nthstr:$temforum$:1:$readfile$
if:1131:$temforum$==$forum$
nextfile:$readfile$
j:1130
1131:
nthstr:$temroom$:2:$readfile$
strext:$string$:1:1:$temroom$
strext:$temroom$:2:2:$temroom$
if:1139:$string$==4
set:$temroom$:1$temroom$
if:1139:$string$==5
set:$temroom$:20
1139:
ret:
1140:
firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
1141:
if:1149:$filename$==
nthstr:$patio$:1:$filename$
if:1149:$patioi$==$patio$
nextfile:$filename$
j:1141
1149:
ret:
1150:
firstfile:$readfile$:POST:¥^PT_[A-Z]+[0-9][0-9][0-9][0-9][0-9]-[49][19]-
1151:
if:1159:$readfile$==
nthstr:$patio$:1:$readfile$
strext:$patio$:4:11:$patio$
if:1159:$patioi$==$patio$
nextfile:$readfile$
j:1151
1159:
ret:
***** Send Text Mail *****
1200:
if:1210:#mailon#==1
nthstr:$temset$:7:$set$
if:1201:$temset$==0
s:GO NEW
1201:
s:MAIL^m
set:#mailon#:1
r:^jMAIL>
1210:
s:COMpose^m
strext:$mailto$:4:99:$mesline$
r:行頭で/E)
1211:
s:$mesline$
strwhere:#num#:,¥¥r:$mailto$
if:1212:#num#==0
nthstr2:¥r:$mailto$:1:$mailto$
fread:#mesref#:$mesline$
set:$mailto$:$mailto$$mesline$
j:1211
1212:
gosub:1800
r:^j題名 (漢字で20文字まで)|1213:終了)|1299:^jMAIL>
s:無題 m(_ _)m^m
r:^j:
s:1^m
r:^j:|1299:^jMAIL>
1213:
d:2
set:$mailto$:$id$
s:$id$^m
r:^j:
s:1^m
r:^j:
s:^m
r:^jMAIL>
1299:
ret:
***** Send Message in Forum *****
1300:
nthstr:$room$:2:$filename$
if:1302:#roomon#==1
nthstr:$temset$:9:$set$
if:1301:$temset$==0
s:MES^m
r:^j>
1301:
s:MES $room$^m
r:^jCCS(|1303:^jFORUM>|1303:^j>
set:#roomon#:1
j:1310
1302:
s:RX $room$^m
r:せん◆|1310:^jCCS(
1303:
set:$us$:_?
gosub:2300
firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
1304:
if:1399:$filename$==
nthstr:$temforum$:1:$filename$
if:1305:$temforum$==$forum$
nextfile:$filename$
j:1304
1305:
nthstr:$temroom$:2:$filename$
if:1303:$temroom$==$room$
j:1399
1310:
gosub:1500
strwhere:#num#:¥¥?:$us$
firstfile:$filename$:POST:¥^[¥^-_]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
1311:
if:1320:$filename$==
nthstr:$temforum$:1:$filename$
if:1312:$temforum$==$forum$
nextfile:$filename$
j:1311
1312:
nthstr:$temroom$:2:$filename$
if:1320:$temroom$<>$room$
if:1310:#num#<>0
r:^j題名 (漢字で20文字まで)|1310:^jCCS(
s:無題 m(_ _)m^m
r:^j:
s:1^m
r:^jCCS(
j:1310
1320:
gosub:1120
if:1399:#num#<>0
r:^j題名 (漢字で20文字まで)|1399:^jCCS(
s:無題 m(_ _)m^m
r:^j:
s:1^m
r:^jCCS(
if:1399:$readfile$==
gosub:2110
1399:
ret:
***** Send Message in Patio *****
1400:
if:1499:$filename$==
1401:
gosub:1500
strwhere:#num#:¥¥?:$us$
firstfile:$filename$:POST:¥^[¥^_]+[0-9][0-9][0-9][0-9][0-9]-1-
1402:
if:1404:$filename$==
nthstr:$patio$:1:$filename$
if:1403:$patioi$==$patio$
nextfile:$filename$
j:1402
1403:
if:1401:#num#<>0
r:^j題名 (漢字で20文字まで)|1401:^jPATIO(
s:無題 m(_ _)m^m
r:^j:
s:1^m
r:^jPATIO(
j:1401
1404:
if:1499:#num#<>0
r:^j題名 (漢字で20文字まで)|1499:^jPATIO(
s:無題 m(_ _)m^m
r:^j:
s:1^m
r:^jPATIO(
1499:
ret:
***** Comment or Message? *****
1500:
nthstr:$mes$:3:$filename$
if:1502:$mes$==
strwhere:#num#:700[0-9][0-9]:$mes$
if:1502:#num#==1
s:RE $mes$^m
r:下さい◆|1501:◆|1503:行頭で/E)
j:1510
1501:
nthstr:$temset$:11:$set$
if:1510:$temset$==0
1502:
s:SAY^m
r:^j:|1510:◆
s:1^m
r:行頭で/E)
1503:
fopen:#mesref#:POST:$filename$
gosub:1800
j:1599
1510:
set:$us$:_?
gosub:2300
1599:
ret:
***** Prepare to Upload *****
1600:
firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
1601:
if:1699:$filename$==
nthstr:$temforum$:1:$filename$
if:1602:$temforum$==$forum$
nextfile:$filename$
j:1601
1602:
nthstr:$uplib$:2:$filename$
strext:$uplib$:4:5:$uplib$
1610:
fopen:#mesref#:POST:$filename$
fread:#mesref#:$mesline$
strwhere:#num#:#!FN:$mesline$
if:1620:#num#<>1
strlen:#length#:$mesline$
sub:#length#:1
strext:$upfname$:5:#length#:$mesline$
exist:1611:$upfname$
j:1620
1611:
fread:#mesref#:$mesline$
strwhere:#num#:#!TT:$mesline$
if:1620:#num#<>1
strlen:#length#:$mesline$
if:1620:#length#<=5
strext:$dataname$:5:#length#:$mesline$
fread:#mesref#:$mesline$
strwhere:#num#:#!KY:$mesline$
if:1620:#num#<>1
strlen:#length#:$mesline$
if:1620:#length#<=5
strwhere:#num#:,:$mesline$
if:1620:#num#==5
if:1612:#libon#==1
nthstr:$temset$:10:$set$
if:1612:$temset$==0
s:LIB^m
r:^j>
1612:
s:LIB $uplib$^m
set:$lib$:$uplib$
strext:$mesline$:5:#length#:$mesline$
r:^jLIB>
gosub:1700
j:1600
1620:
fclose:#mesref#
set:$us$:_?
gosub:2300
1699:
ret:
***** Upload *****
1700:
s:UPLoad PROT:BPL TYPE:BIN^m
set:#keynum#:1
r:^j:|1714:^jLIB>
s:$dataname$
r:^j:
s:1^m
r:^j:
1701:
nthstr2:,:$key$:#keynum#:$mesline$
nthstr2:¥r:$key$:1:$key$
if:1702:$key$==
s:$key$^m
add:#keynum#:1
r:^j:
s:1^m
r:^j:|1703:行頭で/E)
j:1701
1702:
s:^m
r:行頭で/E)
1703:
gosub:1800
r:^j:
s:1^m
firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
r:^j:
s:$upfname$^m
r:開始−
d:1
ulbplus:$upfname$
r:^jLIB>
1710:
if:1799:$filename$==
nthstr:$temforum$:1:$filename$
if:1711:$temforum$==$forum$
nextfile:$filename$
j:1710
1711:
nthstr:$uplib$:2:$filename$
strext:$uplib$:4:5:$uplib$
if:1712:$uplib$==$lib$
nextfile:$filename$
j:1710
1712:
fopen:#mesref#:POST:$filename$
fread:#mesref#:$mesline$
strwhere:#num#:#!FN:$mesline$
if:1714:#num#<>1
strlen:#length#:$mesline$
sub:#length#:1
strext:$upfname$:5:#length#:$mesline$
exist:1713:$upfname$
j:1714
1713:
fread:#mesref#:$mesline$
strwhere:#num#:#!TT:$mesline$
if:1714:#num#<>1
strlen:#length#:$mesline$
if:1714:#length#<=5
strext:$dataname$:5:#length#:$mesline$
fread:#mesref#:$mesline$
strwhere:#num#:#!KY:$mesline$
if:1714:#num#<>1
strlen:#length#:$mesline$
if:1714:#length#<=5
strwhere:#num#:,:$mesline$
if:1714:#num#==5
strext:$mesline$:5:#length#:$mesline$
j:1700
1714:
fclose:#mesref#
set:$us$:_?
gosub:2300
1799:
ret:
***** Send Message *****
1800:
fread:#mesref#:$mesline$
if:1801:#err#<>0
if:1801:$mesline$==/POST^m
s:$mesline$
j:1800
1801:
s:/POST^m
fclose:#mesref#
set:$us$:_
gosub:2300
ret:
***** Search in Library *****
1900:
s:LIB^m
set:#libon#:1
r:^j>
if:1901:$sealine$==^m
s:SEArch $sealine$
j:1999
1901:
s:SEArch^m
1999:
r:^j>
ret:
***** Download *****
2000:
fread:#downref#:$downline$
if:2099:#err#<>0
strwhere:#num#:[0-9]+-[0-9]:$downline$
if:2099:#num#<>1
nthstr:$lib$:1:$downline$
set:$temlib$:$lib$
if:2002:#libon#==1
nthstr:$temset$:10:$set$
if:2002:$temset$==0
s:LIB^m
r:^j>
2002:
s:LIB $lib$^m
r:せん◆|2004:^jLIB>
2003:
fread:#downref#:$downline$
if:2099:#err#<>0
strwhere:#num#:[0-9]+-[0-9]:$downline$
if:2099:#num#<>1
nthstr:$temlib$:1:$downline$
if:2003:$temlib$==$lib$
j:2002
2004:
nthstr:$file$:2:$downline$
nthstr2:¥r:$file$:1:$file$
nthstr2: :$file$:1:$file$
s:DOWn PROT:BPL $file$^m
r:^j:|2010:^jLIB>
s:1^m
r:^j:
s:$forum$_$lib$($file$)^m
r:開始−
d:1
dlBplus:
r:^jLIB>
2010:
fread:#downref#:$downline$
if:2011:#err#<>0
strwhere:#num#:[0-9]+-[0-9]:$downline$
if:2011:#num#<>1
nthstr:$temlib$:1:$downline$
if:2004:$temlib$==$lib$
2011:
firstfile:$filename$:POST:¥^[¥^_]+-LIB[0-9]
2012:
if:2015:$filename$==
nthstr:$uplib$:2:$filename$
strext:$uplib$:4:5:$uplib$
if:2013:$uplib$==$lib$
nextfile:$filename$
j:2012
2013:
fopen:#mesref#:POST:$filename$
fread:#mesref#:$mesline$
strwhere:#num#:#!FN:$mesline$
if:2016:#num#<>1
strlen:#length#:$mesline$
sub:#length#:1
strext:$upfname$:5:#length#:$mesline$
exist:2014:$upfname$
j:2016
2014:
fread:#mesref#:$mesline$
strwhere:#num#:#!TT:$mesline$
if:2016:#num#<>1
strlen:#length#:$mesline$
if:2016:#length#<=5
strext:$dataname$:5:#length#:$mesline$
fread:#mesref#:$mesline$
strwhere:#num#:#!KY:$mesline$
if:2016:#num#<>1
strlen:#length#:$mesline$
if:2016:#length#<=5
strwhere:#num#:,:$mesline$
if:2016:#num#==5
strext:$mesline$:5:#length#:$mesline$
gosub:1600
2015:
if:2099:$temlib$==$lib$
set:$lib$:$temlib$
j:2002
2016:
fclose:#downref#
set:$us$:_?
gosub:2300
j:2011
2099:
ret:
***** Read Message in Forum *****
2100:
if:2101:#roomon#==0
s:RX $room$^m
r:せん◆|2110:^jCCS(
j:2103
2101:
nthstr:$temset$:9:$set$
if:2102:$temset$==0
s:MES^m
r:^j>
2102:
s:MES $room$^m
r:^jCCS(|2103:^jFORUM>|2103:^j>
set:#roomon#:1
j:2110
2103:
set:$us$:_?
gosub:2330
gosub:1120
if:2103:$readfile$<>
j:2199
2110:
nthstr:$mes$:3:$readfile$
s:#!$mes$^m
set:$us$:_
gosub:2330
gosub:1120
r:下さい◆|2111:^jCCS(N)>|2111:^jCCS(P)>
gosub:2340
2111:
if:2110:$readfile$<>
2199:
ret:
***** Read Title in Forum *****
2200:
nthstr2:/:$temroom$:#readnum#:$line$
if:2299:$temroom$==
2201:
nthstr2:,:$room$:1:$temroom$
if:2202:#roomon#==0
s:RX $room$^m
r:未読 :0−|2207:せん◆|2204:^jCCS(
j:2207
2202:
nthstr:$temset$:9:$set$
if:2203:$temset$==0
s:MES^m
r:^j>
2203:
s:MES $room$^m
r:未読 :0−|2207:せん◆|2204:^jCCS(
set:#roomon#:1
j:2207
2204:
set:#roomon#:1
if:2205:#readnum#==3
s:RMN^m
j:2206
2205:
s:RTN^m
2206:
r:^j>|2207:^jCCS(
s:RC ALL^m
j:2206
2207:
strwhere:#num#:,:$temroom$
add:#num#:1
strlen:#length#:$temroom$
strext:$temroom$:#num#:#length#:$temroom$
if:2201:#num#>>1
2299:
ret:
***** Rename File *****
2300:
rename:POST:$filename$:$us$$filename$
if:2309:#err#==0
if:2301:#err#==-37
set:$us$:_$us$
j:2300
2301:
strlen:#usnum#:$us$
strext:$us$:#usnum#:#usnum#:$us$
set:#usnum#:0
2302:
rename:POST:$filename$:_$us$#usnum#$filename$
if:2309:#err#==0
add:#usnum#:1
j:2302
2309:
ret:
2310:
set:$us$:_
set:#usnum#:0
2311:
rename:SCRIPT:$filename$:$us$$filename$
if:2319:#err#==0
if:2312:#err#==-37
set:$us$:_$us$
j:2311
2312:
rename:SCRIPT:$filename$:_#usnum#$filename$
if:2319:#err#==0
add:#usnum#:1
j:2312
2319:
ret:
2320:
set:$us$:_
set:#usnum#:0
2321:
rename:POST:$filename$:$us$$line$
if:2329:#err#==0
if:2322:#err#==-37
set:$us$:_$us$
j:2321
2322:
rename:POST:$filename$:$us$#usnum#
if:2329:#err#==0
add:#usnum#:1
j:2322
2329:
ret:
2330:
set:$string$:$readfile$
2331:
rename:POST:$string$:$us$$string$
if:2339:#err#==0
if:2332:#err#==-37
set:$us$:_$us$
j:2331
2332:
strlen:#usnum#:$us$
strext:$us$:#usnum#:#usnum#:$us$
set:#usnum#:0
2333:
rename:POST:$string$:_$us$#usnum#$string$
if:2339:#err#==0
add:#usnum#:1
j:2333
2339:
ret:
2340:
set:$string$:$us$$string$
set:$us$:_
set:#usnum#:0
2341:
rename:POST:$string$:$us$?$string$
if:2349:#err#==0
if:2342:#err#==-37
set:$us$:_$us$
j:2341
2342:
rename:POST:$string$:_?#usnum#$string$
if:2349:#err#==0
add:#usnum#:1
j:2342
2349:
ret: